home *** CD-ROM | disk | FTP | other *** search
/ Clipart Library (Powersource) / Clipart Library.iso / program / prog_c / int_70h.arc / INT-DEMO.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-12-03  |  16.1 KB  |  412 lines
  1.             PAGE  60, 132
  2.             TITLE Testing the TSR graphics interupt
  3.  
  4.  
  5. CSEG     SEGMENT
  6.  
  7.          ORG  100H
  8.          ASSUME CS:CSEG, DS:CSEG, SS:CSEG
  9.  
  10. START:   MOV  AX, CS                ; setup for INT 70h: get the segment and
  11.          LEA  BX, Lines             ;   offset of the data
  12.          INT  70H                   ; call graphics interupt
  13.  
  14.          MOV  AH, 7                 ; DOS function to get a key
  15.          INT  21H                   ; wait for a keyboard hit
  16.  
  17.          MOV  AX, CS                ; setupt for INT 70h
  18.          LEA  BX, Reset
  19.          INT  70H                   ; call graphics interupt
  20.  
  21.          INT  20H                   ; stop this program
  22.  
  23.  
  24.  
  25. Lines    DB   11h                   ; turn on graphics
  26.          DB   61h                   ; clear page 1
  27.          DB   51h                   ; set active page to 1
  28.  
  29.          DB   31h                   ; plot a point
  30.          DW     9, 140
  31.          DB   31h                   ; plot a point
  32.          DW    10, 140
  33.          DB   31h
  34.          DW    11, 140
  35.          DB   31h                   ; plot a point
  36.          DW     9, 141
  37.          DB   31h                   ; plot a point
  38.          DW    10, 141
  39.          DB   31h
  40.          DW    11, 141
  41.  
  42.          DB   31h                   ; plot a point
  43.          DW    39, 170
  44.          DB   31h                   ; plot a point
  45.          DW    40, 170
  46.          DB   31h
  47.          DW    41, 170
  48.          DB   31h                   ; plot a point
  49.          DW    39, 171
  50.          DB   31h                   ; plot a point
  51.          DW    40, 171
  52.          DB   31h
  53.          DW    41, 171
  54.  
  55.          DB   31h                   ; plot a point
  56.          DW     9, 200
  57.          DB   31h                   ; plot a point
  58.          DW    10, 200
  59.          DB   31h                   ; plot a point
  60.          DW    11, 200
  61.          DB   31h                   ; plot a point
  62.          DW     9, 201
  63.          DB   31h                   ; plot a point
  64.          DW    10, 201
  65.          DB   31h                   ; plot a point
  66.          DW    11, 201
  67.  
  68.          DB   31h                   ; plot a point
  69.          DW   689, 140
  70.          DB   31h                   ; plot a point
  71.          DW   690, 140
  72.          DB   31h                   ; plot a point
  73.          DW   691, 140
  74.          DB   31h                   ; plot a point
  75.          DW   689, 141
  76.          DB   31h                   ; plot a point
  77.          DW   690, 141
  78.          DB   31h                   ; plot a point
  79.          DW   691, 141
  80.  
  81.          DB   31h                   ; plot a point
  82.          DW   659, 170
  83.          DB   31h                   ; plot a point
  84.          DW   660, 170
  85.          DB   31h                   ; plot a point
  86.          DW   661, 170
  87.          DB   31h                   ; plot a point
  88.          DW   659, 171
  89.          DB   31h                   ; plot a point
  90.          DW   660, 171
  91.          DB   31h                   ; plot a point
  92.          DW   661, 171
  93.  
  94.          DB   31h                   ; plot a point
  95.          DW   689, 200
  96.          DB   31h                   ; plot a point
  97.          DW   690, 200
  98.          DB   31h                   ; plot a point
  99.          DW   691, 200
  100.          DB   31h                   ; plot a point
  101.          DW   689, 201
  102.          DB   31h                   ; plot a point
  103.          DW   690, 201
  104.          DB   31h                   ; plot a point
  105.          DW   691, 201
  106.  
  107.          DB   42h                   ; draw a line (XOR)
  108.          DW     0,  0, 700, 340
  109.          DB   42h                   ; draw a line (XOR)
  110.          DW    10,  0, 690, 340
  111.          DB   42h                   ; draw a line (XOR)
  112.          DW    20,  0, 680, 340
  113.          DB   42h                   ; draw a line (XOR)
  114.          DW    30,  0, 670, 340
  115.          DB   42h                   ; draw a line (XOR)
  116.          DW    40,  0, 660, 340
  117.          DB   42h                   ; draw a line (XOR)
  118.          DW    50,  0, 650, 340
  119.          DB   42h                   ; draw a line (XOR)
  120.          DW    60,  0, 640, 340
  121.          DB   42h                   ; draw a line (XOR)
  122.          DW    70,  0, 630, 340
  123.          DB   42h                   ; draw a line (XOR)
  124.          DW    80,  0, 620, 340
  125.          DB   42h                   ; draw a line (XOR)
  126.          DW    90,  0, 610, 340
  127.  
  128.          DB   42h                   ; draw a line (XOR)
  129.          DW   100,  0, 600, 340
  130.          DB   42h                   ; draw a line (XOR)
  131.          DW   110,  0, 590, 340
  132.          DB   42h                   ; draw a line (XOR)
  133.          DW   120,  0, 580, 340
  134.          DB   42h                   ; draw a line (XOR)
  135.          DW   130,  0, 570, 340
  136.          DB   42h                   ; draw a line (XOR)
  137.          DW   140,  0, 560, 340
  138.          DB   42h                   ; draw a line (XOR)
  139.          DW   150,  0, 550, 340
  140.          DB   42h                   ; draw a line (XOR)
  141.          DW   160,  0, 540, 340
  142.          DB   42h                   ; draw a line (XOR)
  143.          DW   170,  0, 530, 340
  144.          DB   42h                   ; draw a line (XOR)
  145.          DW   180,  0, 520, 340
  146.          DB   42h                   ; draw a line (XOR)
  147.          DW   190,  0, 510, 340
  148.  
  149.          DB   42h                   ; draw a line (XOR)
  150.          DW   200,  0, 500, 340
  151.          DB   42h                   ; draw a line (XOR)
  152.          DW   210,  0, 490, 340
  153.          DB   42h                   ; draw a line (XOR)
  154.          DW   220,  0, 480, 340
  155.          DB   42h                   ; draw a line (XOR)
  156.          DW   230,  0, 470, 340
  157.          DB   42h                   ; draw a line (XOR)
  158.          DW   240,  0, 460, 340
  159.          DB   42h                   ; draw a line (XOR)
  160.          DW   250,  0, 450, 340
  161.          DB   42h                   ; draw a line (XOR)
  162.          DW   260,  0, 440, 340
  163.          DB   42h                   ; draw a line (XOR)
  164.          DW   270,  0, 430, 340
  165.          DB   42h                   ; draw a line (XOR)
  166.          DW   280,  0, 420, 340
  167.          DB   42h                   ; draw a line (XOR)
  168.          DW   290,  0, 410, 340
  169.  
  170.          DB   42h                   ; draw a line (XOR)
  171.          DW   300,  0, 400, 340
  172.          DB   42h                   ; draw a line (XOR)
  173.          DW   310,  0, 390, 340
  174.          DB   42h                   ; draw a line (XOR)
  175.          DW   320,  0, 380, 340
  176.          DB   42h                   ; draw a line (XOR)
  177.          DW   330,  0, 370, 340
  178.          DB   42h                   ; draw a line (XOR)
  179.          DW   340,  0, 360, 340
  180.          DB   42h                   ; draw a line (XOR)
  181.          DW   350,  0, 350, 340
  182.          DB   42h                   ; draw a line (XOR)
  183.          DW   360,  0, 340, 340
  184.          DB   42h                   ; draw a line (XOR)
  185.          DW   370,  0, 330, 340
  186.          DB   42h                   ; draw a line (XOR)
  187.          DW   380,  0, 320, 340
  188.          DB   42h                   ; draw a line (XOR)
  189.          DW   390,  0, 310, 340
  190.  
  191.          DB   42h                   ; draw a line (XOR)
  192.          DW   400,  0, 300, 340
  193.          DB   42h                   ; draw a line (XOR)
  194.          DW   410,  0, 290, 340
  195.          DB   42h                   ; draw a line (XOR)
  196.          DW   420,  0, 280, 340
  197.          DB   42h                   ; draw a line (XOR)
  198.          DW   430,  0, 270, 340
  199.          DB   42h                   ; draw a line (XOR)
  200.          DW   440,  0, 260, 340
  201.          DB   42h                   ; draw a line (XOR)
  202.          DW   450,  0, 250, 340
  203.          DB   42h                   ; draw a line (XOR)
  204.          DW   460,  0, 240, 340
  205.          DB   42h                   ; draw a line (XOR)
  206.          DW   470,  0, 230, 340
  207.          DB   42h                   ; draw a line (XOR)
  208.          DW   480,  0, 220, 340
  209.          DB   42h                   ; draw a line (XOR)
  210.          DW   490,  0, 210, 340
  211.  
  212.          DB   42h                   ; draw a line (XOR)
  213.          DW   500,  0, 200, 340
  214.          DB   42h                   ; draw a line (XOR)
  215.          DW   510,  0, 190, 340
  216.          DB   42h                   ; draw a line (XOR)
  217.          DW   520,  0, 180, 340
  218.          DB   42h                   ; draw a line (XOR)
  219.          DW   530,  0, 170, 340
  220.          DB   42h                   ; draw a line (XOR)
  221.          DW   540,  0, 160, 340
  222.          DB   42h                   ; draw a line (XOR)
  223.          DW   550,  0, 150, 340
  224.          DB   42h                   ; draw a line (XOR)
  225.          DW   560,  0, 140, 340
  226.          DB   42h                   ; draw a line (XOR)
  227.          DW   570,  0, 130, 340
  228.          DB   42h                   ; draw a line (XOR)
  229.          DW   580,  0, 120, 340
  230.          DB   42h                   ; draw a line (XOR)
  231.          DW   590,  0, 110, 340
  232.  
  233.          DB   42h                   ; draw a line (XOR)
  234.          DW   600,  0, 100, 340
  235.          DB   42h                   ; draw a line (XOR)
  236.          DW   610,  0,  90, 340
  237.          DB   42h                   ; draw a line (XOR)
  238.          DW   620,  0,  80, 340
  239.          DB   42h                   ; draw a line (XOR)
  240.          DW   630,  0,  70, 340
  241.          DB   42h                   ; draw a line (XOR)
  242.          DW   640,  0,  60, 340
  243.          DB   42h                   ; draw a line (XOR)
  244.          DW   650,  0,  50, 340
  245.          DB   42h                   ; draw a line (XOR)
  246.          DW   660,  0,  40, 340
  247.          DB   42h                   ; draw a line (XOR)
  248.          DW   670,  0,  30, 340
  249.          DB   42h                   ; draw a line (XOR)
  250.          DW   680,  0,  20, 340
  251.          DB   42h                   ; draw a line (XOR)
  252.          DW   690,  0,  10, 340
  253.          DB   42h                   ; draw a line (XOR)
  254.          DW   700,  0,   0, 340
  255.  
  256.  
  257.          DB   42h                   ; draw a line (XOR)
  258.          DW     5,  0, 695, 340
  259.          DB   42h                   ; draw a line (XOR)
  260.          DW    15,  0, 685, 340
  261.          DB   42h                   ; draw a line (XOR)
  262.          DW    25,  0, 675, 340
  263.          DB   42h                   ; draw a line (XOR)
  264.          DW    35,  0, 665, 340
  265.          DB   42h                   ; draw a line (XOR)
  266.          DW    45,  0, 655, 340
  267.          DB   42h                   ; draw a line (XOR)
  268.          DW    55,  0, 645, 340
  269.          DB   42h                   ; draw a line (XOR)
  270.          DW    65,  0, 635, 340
  271.          DB   42h                   ; draw a line (XOR)
  272.          DW    75,  0, 625, 340
  273.          DB   42h                   ; draw a line (XOR)
  274.          DW    85,  0, 615, 340
  275.          DB   42h                   ; draw a line (XOR)
  276.          DW    95,  0, 605, 340
  277.  
  278.          DB   42h                   ; draw a line (XOR)
  279.          DW   105,  0, 595, 340
  280.          DB   42h                   ; draw a line (XOR)
  281.          DW   115,  0, 585, 340
  282.          DB   42h                   ; draw a line (XOR)
  283.          DW   125,  0, 575, 340
  284.          DB   42h                   ; draw a line (XOR)
  285.          DW   135,  0, 565, 340
  286.          DB   42h                   ; draw a line (XOR)
  287.          DW   145,  0, 555, 340
  288.          DB   42h                   ; draw a line (XOR)
  289.          DW   155,  0, 545, 340
  290.          DB   42h                   ; draw a line (XOR)
  291.          DW   165,  0, 535, 340
  292.          DB   42h                   ; draw a line (XOR)
  293.          DW   175,  0, 525, 340
  294.          DB   42h                   ; draw a line (XOR)
  295.          DW   185,  0, 515, 340
  296.          DB   42h                   ; draw a line (XOR)
  297.          DW   195,  0, 505, 340
  298.  
  299.          DB   42h                   ; draw a line (XOR)
  300.          DW   205,  0, 495, 340
  301.          DB   42h                   ; draw a line (XOR)
  302.          DW   215,  0, 485, 340
  303.          DB   42h                   ; draw a line (XOR)
  304.          DW   225,  0, 475, 340
  305.          DB   42h                   ; draw a line (XOR)
  306.          DW   235,  0, 465, 340
  307.          DB   42h                   ; draw a line (XOR)
  308.          DW   245,  0, 455, 340
  309.          DB   42h                   ; draw a line (XOR)
  310.          DW   255,  0, 445, 340
  311.          DB   42h                   ; draw a line (XOR)
  312.          DW   265,  0, 435, 340
  313.          DB   42h                   ; draw a line (XOR)
  314.          DW   275,  0, 425, 340
  315.          DB   42h                   ; draw a line (XOR)
  316.          DW   285,  0, 415, 340
  317.          DB   42h                   ; draw a line (XOR)
  318.          DW   295,  0, 405, 340
  319.  
  320.          DB   42h                   ; draw a line (XOR)
  321.          DW   305,  0, 395, 340
  322.          DB   42h                   ; draw a line (XOR)
  323.          DW   315,  0, 385, 340
  324.          DB   42h                   ; draw a line (XOR)
  325.          DW   325,  0, 375, 340
  326.          DB   42h                   ; draw a line (XOR)
  327.          DW   335,  0, 365, 340
  328.          DB   42h                   ; draw a line (XOR)
  329.          DW   345,  0, 355, 340
  330.          DB   42h                   ; draw a line (XOR)
  331.          DW   355,  0, 345, 340
  332.          DB   42h                   ; draw a line (XOR)
  333.          DW   365,  0, 335, 340
  334.          DB   42h                   ; draw a line (XOR)
  335.          DW   375,  0, 325, 340
  336.          DB   42h                   ; draw a line (XOR)
  337.          DW   385,  0, 315, 340
  338.          DB   42h                   ; draw a line (XOR)
  339.          DW   395,  0, 305, 340
  340.  
  341.          DB   42h                   ; draw a line (XOR)
  342.          DW   405,  0, 295, 340
  343.          DB   42h                   ; draw a line (XOR)
  344.          DW   415,  0, 285, 340
  345.          DB   42h                   ; draw a line (XOR)
  346.          DW   425,  0, 275, 340
  347.          DB   42h                   ; draw a line (XOR)
  348.          DW   435,  0, 265, 340
  349.          DB   42h                   ; draw a line (XOR)
  350.          DW   445,  0, 255, 340
  351.          DB   42h                   ; draw a line (XOR)
  352.          DW   455,  0, 245, 340
  353.          DB   42h                   ; draw a line (XOR)
  354.          DW   465,  0, 235, 340
  355.          DB   42h                   ; draw a line (XOR)
  356.          DW   475,  0, 225, 340
  357.          DB   42h                   ; draw a line (XOR)
  358.          DW   485,  0, 215, 340
  359.          DB   42h                   ; draw a line (XOR)
  360.          DW   495,  0, 205, 340
  361.  
  362.          DB   42h                   ; draw a line (XOR)
  363.          DW   505,  0, 195, 340
  364.          DB   42h                   ; draw a line (XOR)
  365.          DW   515,  0, 185, 340
  366.          DB   42h                   ; draw a line (XOR)
  367.          DW   525,  0, 175, 340
  368.          DB   42h                   ; draw a line (XOR)
  369.          DW   535,  0, 165, 340
  370.          DB   42h                   ; draw a line (XOR)
  371.          DW   545,  0, 155, 340
  372.          DB   42h                   ; draw a line (XOR)
  373.          DW   555,  0, 145, 340
  374.          DB   42h                   ; draw a line (XOR)
  375.          DW   565,  0, 135, 340
  376.          DB   42h                   ; draw a line (XOR)
  377.          DW   575,  0, 125, 340
  378.          DB   42h                   ; draw a line (XOR)
  379.          DW   585,  0, 115, 340
  380.          DB   42h                   ; draw a line (XOR)
  381.          DW   595,  0, 105, 340
  382.  
  383.          DB   42h                   ; draw a line (XOR)
  384.          DW   605,  0,  95, 340
  385.          DB   42h                   ; draw a line (XOR)
  386.          DW   615,  0,  85, 340
  387.          DB   42h                   ; draw a line (XOR)
  388.          DW   625,  0,  75, 340
  389.          DB   42h                   ; draw a line (XOR)
  390.          DW   635,  0,  65, 340
  391.          DB   42h                   ; draw a line (XOR)
  392.          DW   645,  0,  55, 340
  393.          DB   42h                   ; draw a line (XOR)
  394.          DW   655,  0,  45, 340
  395.          DB   42h                   ; draw a line (XOR)
  396.          DW   665,  0,  35, 340
  397.          DB   42h                   ; draw a line (XOR)
  398.          DW   675,  0,  25, 340
  399.          DB   42h                   ; draw a line (XOR)
  400.          DW   685,  0,  15, 340
  401.          DB   42h                   ; draw a line (XOR)
  402.          DW   695,  0,   5, 340
  403.  
  404.          DB   00                    ; end interupt code
  405.  
  406. Reset    DB   20h                   ; text on (page 0)
  407.          DB   00                    ; end interupt code
  408.  
  409. CSEG     ENDS
  410.          END START
  411.          END
  412.